home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Biz / swood / FW_Scripts.lha / FW_Scripts / ComplexShape / ObjectSave.rexx < prev    next >
OS/2 REXX Batch file  |  2004-08-19  |  723b  |  31 lines
  1. /* FinalWriter AREXX macro       */
  2. /* $VER: ObjectSave 1.2           */
  3. /* Save selected object(s) to disk */
  4.  
  5. Options Results
  6.  
  7. CurrentObject
  8. IF Result = 0 THEN DO
  9.    ShowMessage 1 0 '"No objects selected." "" "" "OK" "" ""'
  10.    EXIT
  11. END
  12.  
  13. Copy
  14.  
  15. ADDRESS COMMAND 'RequestFile >ENV:File Title="Where to save object(s)" SAVEMODE NOICONS Pubscreen="FinalWriterPubScreen"'
  16. IF rc ~= 0 THEN EXIT
  17.  
  18. IF OPEN("Env", "Env:File", "R") THEN DO
  19.    filename = READLN("Env")
  20.    CALL CLOSE("Env")
  21. END
  22.  
  23. filename = STRIP(filename,'B','"')
  24.  
  25. IF EXISTS(filename) THEN DO
  26.    ShowMessage 2 0 '"Overwrite Existing File?" "" "" "Accept" "Cancel" ""'
  27.    IF result = 2 THEN EXIT
  28.    ADDRESS COMMAND 'Delete' $File
  29. END
  30.  
  31. ADDRESS COMMAND 'Copy CLIPS:0' $File 'CLONE'